home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / scitech / mgl11 / examples / testgr.c < prev    next >
Encoding:
Text File  |  1994-03-10  |  45.2 KB  |  1,491 lines
  1. indVesaMode(xsize,ysize,24);
  2.     END;
  3.     IF mode = 0 THEN BEGIN
  4.         WriteLn('No such mode could be found !');
  5.         WriteLn('Switching to to 320x200.');
  6.         ReadKey;
  7.         mode := V320x200x256;
  8.     END;
  9. END;
  10.  
  11. begin { program body }
  12.   SelectMode;
  13.   Initialize;
  14.   ReportStatus;
  15.  
  16. {  AspectRatioPlay; }
  17.   FillEllipsePlay;
  18.   SectorPlay;
  19.   WriteModePlay;
  20.  
  21.   ColorPlay;
  22.   { PalettePlay only intended to work on these drivers: }
  23.   if (GraphDriver = EGA) or
  24.       (GraphDriver = EGA64) or
  25.       (GraphDriver = VGA) then
  26.      PalettePlay;
  27.   PutPixelPlay;
  28. {  PutImagePlay; }
  29.   RandBarPlay;
  30.   BarPlay;
  31.   Bar3DPlay;
  32.   ArcPlay;
  33.   CirclePlay;
  34.   PiePlay;
  35.   LineToPlay;
  36.   LineRelPlay;
  37. {  LineStylePlay; }
  38. {  UserLineStylePlay; }
  39.   TextDump;
  40.   TextPlay;
  41.   CrtModePlay;
  42.   FillStylePlay;
  43.   FillPatternPlay;
  44.   PolyPlay;
  45.   SayGoodbye;
  46. {  CloseGraph; }
  47.   CloseVesa;
  48. end.
  49. ***************************************************
  50.     '* SHOW D2ROTATE (ABOUT THE ORIGIN)
  51.     '****************************************************************∞╥≤c≤*φè#^│v/╒:j═φ0t+l▓ô"¬"g└≡?%ªêΣ│H╫½╫╜├¿U'╒⌐⌡ ßV?╩
  52. ¬ujOΦçEZ1∞▐! ▄B╛Σ8║æ]1GlNÜ┐q▌▓;ô$ΦzE<cª*bEô#ä╧ñÅ"∩─LrdaÖ ╠º╫a^¥£å╬1~)@ëÖMδ╫0═6DäFê¬Çv┼ß╨kæpτ╪É)}ª 1w3╤╧ü⌡¥╓h▓╣≈ïÅaÑ[TⁿHqªÉ╝DKÄ─Y-∞tT╤Θ╨º╟╪.*ÇI9lΦ≈{πτcσ$τπßoFr╪╨∩┼╞╟;O2■e²LÜ4^N|╪½ÅO?╔°FOz`╟╟╟'<>>π$πΘù6·
  53. Xgî╖│°oîδπGƒd╝▀░?■╪╔_9L ⌡ôⁿq'æO▀ƒn4╔▀╚▄┼3pτ.òO°·}÷╕ⁿ±'æO?ít│!√8ßÑ≤/┐╣p┼≥┘E╦Vox╕cΦé5╟╚º╙$?√$≥ΘZεsî≡åìΓpKù¢ïß X╥ 9╞≈\µk┤O¥_ 5Üö\≤éÄ┌╤A[╤ÿáï┼éNⁿÅu16    g,%hc╙╨cD╨Vï┘R¢öKñR;8εáΣ╢╪ós╤π╡á└èxgzPÄMú╫yαºÉ+σJ¢i+▓â3╥    ═Ñ╙î^ºG▓█πérφçs %#(╗⌠?┼%u8≡6+QÉ))ò)Afw≈╣╪)B&4░åLXV:δät@Å.;5Φf╢Ät┐ΣJ╫─U8úÇ╟éö£╕p╔┴⌠vg╨╬╥é÷╪╣┬ΓI.ç≡^v╤ZΦÇ& ╒┌6ñô6XßNè╡╬E₧Ñ
  54. kIº╠▄A+╣╥éb²tæ-Y¡½αÑa═uuîÇ╢αêvhuª╡SÅ┤vèùú¥F;p<d⌐/F─d█éT%▓KΦû=q■öI┐ ┐╠6S$▒÷╚ENΩ¥Fû9╔┌R'╝ ╧φ└?g┬j▓0═/b╖₧─mûé╢┌»ÿÄë/·<éò■░╤╟╢├Xσ:╥P3Θ"╬Læsφ░┌öSö!╗¿*mN£WΣÇ£┤~#╗ææ≥RΩóh:à▌.æ≈╕▌v£äàd▒à╒├=░╖π║$howeg*╬    6ù▄ƒô╕φ░Ö╢qΘD>(w@úKεHÆ╛öúΣU
  55. éÜR╔╤W▄èê 2M%ó.▓SNÖA1ùJE╢║l]▓¿>\%└Å4ßO▄£â⌐& ê/)8vSP▀▓ôⁿææ√ü√ÑÄa⌠â╚4S╓╟P- ?Σá╕▓Næ*q╡UΘ▓≈^ñ·I.rúR&$Y^╚%è≡B┌≈Ceat
  56.     Color := RandColor;
  57.     SetColor(Color);
  58.     SetFillStyle(Random(CloseDotFill)+1, Color);
  59.     Bar3D(Random(MaxWidth), Random(MaxHeight),
  60.           Random(MaxWidth), Random(MaxHeight), 0, TopOff);
  61.   until KeyPressed;
  62.   WaitToGo;
  63. end; { RandBarPlay }
  64.  
  65. procedure ArcPlay;
  66. { Draw random arcs on the screen }
  67. var
  68.   MaxRadius : word;
  69.   EndAngle : word;
  70.   ArcInfo : ArcCoordsType;
  71. begin
  72.   MainWindow('Arc / GetArcCoords demonstration');
  73.   StatusLine('Esc aborts or press a key');
  74.   MaxRadius := MaxY div 10;
  75.   repeat
  76.     SetColor(RandColor);
  77.     EndAngle := Random(360);
  78.     SetLineStyle(SolidLn, 0, NormWidth);
  79.     Arc(Random(MaxX), Random(MaxY), Random(EndAngle), EndAngle, Random(MaxRadius));
  80.     GetArcCoords(ArcInfo);
  81.     with ArcInfo do
  82.     begin
  83.       Line(X, Y, XStart, YStart);
  84.       Line(X, Y, Xend, Yend);
  85.     end;
  86.   until KeyPressed;
  87.   WaitToGo;
  88. end; { ArcPlay }
  89.  
  90. procedure PutPixelPlay;
  91. { Demonstrate the PutPixel and GetPixel commands }
  92. const
  93.   Seed   = 1962; { A seed for the random number generator }
  94.   NumPts = 2000; { The number of pixels plotted }
  95.   Esc    = #27;
  96. var
  97.   I : word;
  98.   X, Y, Color : word;
  99.   XMax, YMax  : integer;
  100.   ViewInfo    : ViewPortType;
  101. begin
  102.   MainWindow('PutPixel / GetPixel demonstration');
  103.   StatusLine('Esc aborts or press a key...');
  104.  
  105.   GetViewSettings(ViewInfo);
  106.   with ViewInfo do
  107.   begin
  108.     XMax := (x2-x1-1);
  109.     YMax := (y2-y1-1);
  110.   end;
  111.  
  112.   while not KeyPressed do
  113.   begin
  114.     { Plot random pixels }
  115.     RandSeed := Seed;
  116.     I := 0;
  117.     while (not KeyPressed) and (I < NumPts) do
  118.     begin
  119.       Inc(I);
  120.         PutPixel(Random(XMax)+1, Random(YMax)+1, RandColor);
  121.     end;
  122.  
  123.     { Erase pixels }
  124.     RandSeed := Seed;
  125.     I := 0;
  126.     while (not KeyPressed) and (I < NumPts) do
  127.     begin
  128.       Inc(I);
  129.       X := Random(XMax)+1;
  130.       Y := Random(YMax)+1;
  131.       Color := GetPixel(X, Y);
  132.         if Color = RandColor then
  133.           PutPixel(X, Y, 0);
  134.      end;
  135.   end;
  136.   WaitToGo;
  137. end; { PutPixelPlay }
  138.  
  139. procedure PutImagePlay;
  140. { Demonstrate the GetImage and PutImage commands }
  141.  
  142. const
  143.   r  = 20;
  144.   StartX = 100;
  145.   StartY = 50;
  146.  
  147. var
  148.   CurPort : ViewPortType;
  149.  
  150. procedure MoveSaucer(var X, Y : integer; Width, Height : integer);
  151. var
  152.   Step : integer;
  153. begin
  154.   Step := Random(2*r);
  155.   if Odd(Step) then
  156.     Step := -Step;
  157.   X := X + Step;
  158.   Step := Random(r);
  159.   if Odd(Step) then
  160.     Step := -Step;
  161.   Y := Y + Step;
  162.  
  163.   { Make saucer bounce off viewport walls }
  164.   with CurPort do
  165.   begin
  166.     if (x1 + X + Width - 1 > x2) then
  167.       X := x2-x1 - Width + 1
  168.     else
  169.       if (X < 0) then
  170.         X := 0;
  171.     if (y1 + Y + Height - 1 > y2) then
  172.       Y := y2-y1 - Height + 1
  173.     else
  174.       if (Y < 0) then
  175.         Y := 0;
  176.   end;
  177. end; { MoveSaucer }
  178.  
  179. var
  180.   Pausetime : word;
  181.   Saucer    : pointer;
  182.   X, Y      : integer;
  183.   ulx, uly  : word;
  184.   lrx, lry  : word;
  185.   Size      : word;
  186.   I         : word;
  187. begin
  188.   ClearDevice;
  189.   FullPort;
  190.  
  191.   { PaintScreen }
  192.   ClearDevice;
  193.   MainWindow('GetImage / PutImage Demonstration');
  194.   StatusLine('Esc aborts or press a key...');
  195.   GetViewSettings(CurPort);
  196.  
  197.   { DrawSaucer }
  198.   Ellipse(StartX, StartY, 0, 360, r, (r div 3)+2);
  199.   Ellipse(StartX, StartY-4, 190, 357, r, r div 3);
  200.   Line(StartX+7, StartY-6, StartX+10, StartY-12);
  201.   Circle(StartX+10, StartY-12, 2);
  202.   Line(StartX-7, StartY-6, StartX-10, StartY-12);
  203.   Circle(StartX-10, StartY-12, 2);
  204.   SetFillStyle(SolidFill, MaxColor);
  205.   FloodFill(StartX+1, StartY+4, GetColor);
  206.  
  207.   { ReadSaucerImage }
  208.   ulx := StartX-(r+1);
  209.   uly := StartY-14;
  210.   lrx := StartX+(r+1);
  211.   lry := StartY+(r div 3)+3;
  212.  
  213.   Size := ImageSize(ulx, uly, lrx, lry);
  214.   GetMem(Saucer, Size);
  215.   GetImage(ulx, uly, lrx, lry, Saucer^);
  216. {  PutImage(ulx, uly, Saucer^, XORput);               { erase image }
  217.  
  218.   { Plot some "stars" }
  219.   for I := 1 to 1000 do
  220.      PutPixel(Random(MaxX), Random(MaxY), RandColor);
  221.   X := MaxX div 2;
  222.   Y := MaxY div 2;
  223.   PauseTime := 70;
  224.  
  225.   { Move the saucer around }
  226.   repeat
  227. {     PutImage(X, Y, Saucer^, XORput);                 { draw image }
  228.      Delay(PauseTime);
  229. {     PutImage(X, Y, Saucer^, XORput);                 { erase image }
  230.      MoveSaucer(X, Y, lrx - ulx + 1, lry - uly + 1);  { width/height }
  231.   until KeyPressed;
  232.   FreeMem(Saucer, size);
  233.   WaitToGo;
  234. end; { PutImagePlay }
  235.  
  236. procedure PolyPlay;
  237. { Draw random polygons with random fill styles on the screen }
  238. const
  239.   MaxPts = 5;
  240. type
  241.   PolygonType = array[1..MaxPts] of PointType;
  242. var
  243.   Poly : PolygonType;
  244.   I, Color : word;
  245. begin
  246.   MainWindow('FillPoly demonstration');
  247.   StatusLine('Esc aborts or press a key...');
  248.   repeat
  249.     Color := RandColor;
  250.     SetFillStyle(Random(11)+1, Color);
  251.     SetColor(Color);
  252.     for I := 1 to MaxPts do
  253.       with Poly[I] do
  254.       begin
  255.         X := Random(MaxX);
  256.         Y := Random(MaxY);
  257.       end;
  258.     FillPoly(MaxPts, Poly);
  259.   until KeyPressed;
  260.   WaitToGo;
  261. end; { PolyPlay }
  262.  
  263. procedure FillStylePlay;
  264. { Display all of the predefined fill styles available }
  265. var
  266.   Style    : word;
  267.   Width    : word;
  268.   Height   : word;
  269.   X, Y     : word;
  270.   I, J     : word;
  271.   ViewInfo : ViewPortType;
  272.  
  273. procedure DrawBox(X, Y : word);
  274. begin
  275.   SetFillStyle(Style, MaxColor);
  276.   with ViewInfo do
  277.     Bar(X, Y, X+Width, Y+Height);
  278.   Rectangle(X, Y, X+Width, Y+Height);
  279.   OutTextXY(X+(Width div 2), Y+Height+4, Int2Str(Style));
  280.   Inc(Style);
  281. end; { DrawBox }
  282.  
  283. begin
  284.   MainWindow('Pre-defined fill styles');
  285.   GetViewSettings(ViewInfo);
  286.   with ViewInfo do
  287.   begin
  288.     Width := 2 * ((x2+1) div 13);
  289.     Height := 2 * ((y2-10) div 10);
  290.   end;
  291.   X := Width div 2;
  292.   Y := Height div 2;
  293.   Style := 0;
  294.   for J := 1 to 3 do
  295.   begin
  296.     for I := 1 to 4 do
  297.     begin
  298.       DrawBox(X, Y);
  299.       Inc(X, (Width div 2) * 3);
  300.     end;
  301.     X := Width div 2;
  302.     Inc(Y, (Height div 2) * 3);
  303.   end;
  304.   SetTextJustify(LeftText, TopText);
  305.   WaitToGo;
  306. end; { FillStylePlay }
  307.  
  308. procedure FillPatternPlay;
  309. { Display some user defined fill patterns }
  310. const
  311.   Patterns : array[0..11] of FillPatternType = (
  312.   ($AA, $55, $AA, $55, $AA, $55, $AA, $55 üÖü üÖü  !BBäx!!!BBäx!BBäx"""DDêp""DDêp>"""BBääêp""!"BDäêêp>IÉÆ|      ° @≥î>00>><Dêx  !BBäx""DDêp&<"DDêê&22TTêêê$> $< @äêp>          ⁿBBBB<  @@Ç****DDDDDDDU¬U¬U¬U¬U¬U¬U¬▌w▌w▌w▌w▌w▌w▌w°°°≥■°°≥≥■≥≥■■°°°    ≤  ≤  ≤≤         °                     ≡≡≡≡≡≡≡≡≡≡≡≡≡≡       ;DDD;    $"Bdÿ>@@@>||>Ac]AAA1N"A""2,  `1NA"*III*<Bü üB<<BüüüB<A" \"QIE" < <BBBB  @@    ~ ?  @ÇB$$B ""A$$"AII6 üBr»$**IIII**ccregion.  The region is defined as any pixel of
  313.             OldColor which has a path of pixels of OldColor or NewColor
  314.             with sides touching back to the seed point, (XSeed, YSeed).
  315.             Therefore, only pixels of OldColor are modified and no other
  316.             information is changed.
  317.  
  318.             SEE ALSO
  319.  
  320.             DRWFILLBOX, DRWFILLCIRCLE, DRWFILLELLIPSE, FILLAREA,
  321.             FILLCONVEXPOLY, FILLPAGE, FILLPOLY, FILLSCREEN, FILLVIEW,
  322.             SETVIEW
  323.  
  324.             EXAMPL(HNxHHO$B<BBBB<$<BBBB<<BBBB<$BBBBBF:0BBBBF:$BBBF:B<""AAA""AAAAA"<B@@B<" <2\A">>xDDxDNDD <` <>BB= > <BBBB< BBBBF:2L\bBBBB&AaQIECA8$>""">0@@A>@@@ b$(. b$(*
  325.     $    $    $DDDDDDD¬U¬U¬U¬U¬U¬U¬Uw▌w▌w▌w▌w▌w▌w▌°°°⌠ⁿ°°⌠⌠ⁿ⌠⌠ⁿⁿ°°°    ≈  ≈  ≈≈         °                     ≡≡≡≡≡≡≡≡≡≡≡≡≡≡       7HH7"B\DBBRL~BB@@@@@@?R~!!~?DDDD8BBBB|@@Ç>P>III>"AA""AAA"Uw<DDDD86II6"EIQ"\ @@ "AAAAA> >     hH02L2L$$<H(,$<>>>>>>>         VMODE=VIDEOMODEGET
  326.             IF WHICHVGA = 0 THEN STOP
  327.             DUMMY=RES640
  328.             SETVIEW 100, 100, 539, 379
  329.             FILLVIEW 10
  330.             WHILE INKEY$ = ""
  331.             WEND
  332.             VIDEOMODESET VMODE
  333.             END
  334.  
  335.  
  336.  
  337.  
  338.  
  339.  
  340.  
  341.  
  342.  
  343.  
  344.  
  345.  
  346.  
  347.  
  348.  
  349.  
  350.                                                                          63
  351.  
  352.  
  353.  
  354.  
  355.  
  356.  
  357.           FONTGETINFO
  358.  
  359.             PROTOTYPE
  360.  
  361.             SUB FONTGETINFO (Width%, Height%)
  362.  
  363.             INPUT
  364.  
  365.             no input parameters
  366.     WEND
  367.             MOUSEEXIT
  368.             VIDEOMODESET VMODE
  369.             END
  370.  
  371.  
  372.  
  373.  
  374.  
  375.  
  376.  
  377.  
  378.  
  379.  
  380.  
  381.  
  382.  
  383.  
  384.  
  385.  
  386.  
  387.  
  388.  
  389.  
  390.  
  391.  
  392.  
  393.  
  394.  
  395.  
  396.  
  397.  
  398.  
  399.  
  400.  
  401.  
  402.  
  403.  
  404.  
  405.  
  406.  
  407.  
  408.  
  409.  
  410.                                                                          86
  411.  
  412.  
  413.  
  414.  
  415.  
  416.  
  417.           MOUSECURSORDEFAULT
  418.  
  419.             PROTOTYPE
  420.  
  421.             SUB MOUSECURSORDEFAULT ()
  422.  
  423.             INPUT
  424.  
  425.             no input parameters
  426.  
  427.             OUTPUT
  428.  
  429.             no value returned
  430.  
  431.             USAGE
  432.  
  433.             MOUSECURSORDEFAULT defines the mouse cursor to be a small
  434.        ,K$╖┼╘╤░XQ)σ┤ö≡÷┴─┤àñT┘,╘¬àñX9╘⌠àñ\9╘UÜ╢≤`9╘4a╘d9╘UTa╘h9╘ta╘l9╘Uöa╘p9╘┤a╘t┘PT±x┴îÇ╖0▓ïα│ÅαU┤ôα╡ùα╢¢α╖úΓ╘pǺΓ╕¡αë ╚┴πì°sKÉφb<$⌡▌ë     φë φë I1φë  Eφë $YφÆë (mφë ,üφë 0$òφë á⌐φë ñ╜φë I¿╤φë ¼σφë ░∙φÆë 4
  435. ²ë ┤!²ë ╕$5²ë ╝I²ë └]²ë ⌐8q²ë <àⁿΦiǬ∙PÖÇ ¥Ç
  436. ⁿ
  437. ░╨â@%8@ΓΦá╝╤░≡cÑÅ*$
  438. ░╕≡ż≡τ╥m¿⌡ε    ╨@#µ≈$âh$âαra╨à`¥è∩Ç%Ç +─▀ TîcOî∩â°1<@  [$¿Ç¼ MMl·0ƒ Y¼─!%6a▐è ¥ì ßá+?±  P<îaTTV ╪iÇ¡≥░ `_ñ»%Çá᪠P█º»ε`éa∙É%H«┴íA%Gár∙É
  439. iw∙Éiφ`╧≥≡╤Çmⁿ▒
  440. ]ÆAáσw7░⌡∩    $·╟Ç√É&^`  ┐ $ⁿ  $■ $╒ nk$J-ÉQ1£PéBù »0αQ/Ñ4╜£░ºP≈Ñ4Ç⌡$(ª▀$@C]Æé≈└╕_SÇçÑ4=iÉ⌠ä╣<_np@Ñ45ò▒Y3ü¼Qí░.i>╠@5+┴╙É╛╙$@ #┴@«╦
  441. $╤
  442. #@Ñú4,p&e÷ü¼_ÇQºÑ4
  443. òQ  ü@;¡_áQ@e╠≥@mp!┤a╘O░√`Pñź ÇT°8ÿ!¼Åñ$½╙"q¿ PñCÇ¿α√└╥░eT"ß<p°%Pæ(╧%pδ¥/OêW0Ǽbφ φ B@[â¼8â≥µ≤(    ¿⌡%(Ç∩áTÿp+ óÜ▓0!Σ±(1±
  444. ░┤ÖÇD└D0Å╡`   $ «îO@╧1
  445. a╝╤j-0ñ│`@╖bΦaT1═⌠╝╤Σ²¼±,1öíî9lÿ28ÇÅ`Γî¿P²$,N0┴O0a╫δ≤0σú`°î╖#0δ≡└X▄1»Σî(▒¥Ç█Ñ"qá√1CÇú╟╨º Å
  446. FT Θ²î└1ÇY0    w ²à░$@AÅ`╦Φ¼╘`▄1A  }┐Ç*5 ΩSδδî`¼îaδæ¼î5 1¿⌡Ω╜⌠ ¼¥╬ü└Qî1S
  447. ╛≤î9╨iÇ,∙PU(}Ç$üÇ àÇ`σìÇ`QαÜBO$%ÿÇ╧"$Ç«Ç]É.┬\`%WÉ$  W0 ÄâO0]αG┬ur╩
  448. ░£▒
  449. Q¢ú╔Ç≡°s?`X0╘`@ µWâ@╣aá εdq`¥9?Ç&+o0µyÄΣAÅuV(7P╬±@IdQ╕@Å┤@;Ç▓?Çò│CÇ┤╟╨╡KÇÄ30ⁿφ° ó╬ì+]Ä╦≡     Mö╝σ ²y5<!└▀óâ╝É3~mp    $<╛≤9Æ-2ⁿ≡@T,╞Σa,)Pæ└¥#¼╪Q┤S(¼@Aîa
  450. ≡╤@Ö²±⌠KëD─┴▒▀0╨Ñ$╩-0 ╨ê*╙▓edm`î=3Kß-10è=≥≤²└£mîjy ÿe²ⁿ╨i╕e▓ΣmαÖ╢C%Ç*ê*0 EátQZ`mÄLP%    °üⁿªüNQ∙  T¿<qtWΩc z░ÅÇñΩçǪçÇ«;└<┐á¼¥. á?<Σscî)áí := 0;
  451.       end;
  452.     end;
  453.   end;
  454.   WaitToGo;
  455. end; { UserLineStylePlay }
  456.  
  457.  
  458. procedure SayGoodbye;
  459. { Say goodbye and then exit the program }
  460. var
  461.   ViewInfo : ViewPortType;
  462. begin
  463.   MainWindow('');
  464.   GetViewSettings(ViewInfo);
  465.   SetTextStyle(TriplexFont, HorizDir, 4);
  466.   SetTextJustify(CenterText, CenterText);
  467.   with ViewInfo do
  468.     OutTextXY((x2-x1) div 2, (y2-y1) div 2, 'That''s all folks!');
  469.   StatusLine('Press any key to quit...');
  470.   repeat until KeyPressed;
  471. end; { SayGoodbye }
  472.  
  473.  
  474. PROCEDURE SelectMode;
  475. VAR
  476.     choice1,choice2     : CHAR;
  477.    xsize,ysize            : WORD;
  478. BEGIN
  479.     (* Let's select a mode *)
  480.     ClrScr;
  481.     WriteLn('VESADEMO:');
  482.     WriteLn('1. 256 colors');
  483.     WriteLn('2. 32768 colors');
  484.     WriteLn('3. 65536 colors');
  485.     WriteLn('4. 16777216 colors');
  486.     WriteLn('Q uit');
  487.     WriteLn;
  488.     Write('Your choice: ');
  489.     REPEAT
  490.         ReadLn(choice1);
  491.       IF choice1 <> '1' THEN BEGIN
  492.           WriteLn('Sorry !');
  493.          WriteLn('This demo wasn''t written for more as 256 colors !');
  494.          WriteLn('You would only get a limited impression of the Hi-& TrueColor modes...');
  495.          WriteLn('Switching to 256 colors.');
  496.          choice1 := '1';
  497.       END;
  498.     UNTIL choice1 IN ['1'..'4','q'];
  499.     IF choice1 = 'q' THEN Halt;
  500.  
  501.     WriteLn;
  502.     WriteLn;
  503.     WriteLn('a. 320x200');
  504.     WriteLn('b. 640x480');
  505.     WriteLn('c. 800x600');
  506.     WriteLn('d. 1024x768');
  507.     WriteLn('e. 1280x1024');
  508.     WriteLn('Q uit');
  509.     WriteLn;
  510.     Write('Your choice: ');
  511.     REPEAT
  512.         ReadLn(choice2);
  513.     UNTIL choice2 IN ['a'..'e','q'];
  514.     IF choice2 = 'q' THEN Halt;
  515.  
  516.     CASE choice2 OF
  517.         'a' : BEGIN
  518.             xsize := 320;
  519.             ysize := 200;
  520.         END;
  521.         'b' : BEGIN
  522.             xsize := 640;
  523.             ysize := 480;
  524.         END;
  525.         'c' : BEGIN
  526.             xsize := 800;
  527.             ysize := 600;
  528.         END;
  529.         'd' : BEGIN
  530.             xsize := 1024;
  531.             ysize := 768;
  532.         END;
  533.         'e' : BEGIN
  534.             xsize := 1280;
  535.             ysize := 1024;
  536.         END;
  537.     END;
  538.     CASE choice1 OF
  539.         '1' : mode := FindVesaMode(xsize,ysize,8);
  540.         '2' : mode := FindVesaMode(xsize,ysize,15);
  541.         '3' : mode := FindVesaMode(xsize,ysize,16);
  542.         '4' : mode := FindVesaMode(xsize,ysize,24);
  543.     END;
  544.     IF mode = 0 THEN BEGIN
  545.         WriteLn('No such mode could be found !');
  546.         WriteLn('Switching to to 320x200.');
  547.         ReadKey;
  548.         mode := V320x200x256;
  549.     END;
  550. END;
  551.  
  552. begin { program body }
  553.   SelectMode;
  554.   Initialize;
  555.   ReportStatus;
  556.  
  557. {  AspectRatioPlay; }
  558.   FillEllipsePlay;
  559.   SectorPlay;
  560.   WriteModePlay;
  561.  
  562.   ColorPlay;
  563.   { PalettePlay only intended to work on these drivers: }
  564.   if (GraphDriver = EGA) or
  565.       (GraphDriver = EGA64) or
  566.       (GraphDriver = VGA) then
  567.      PalettePlay;
  568.   PutPixelPlay;
  569. {  PutImagePlay; }
  570.   RandBarPlay;
  571.   BarPlay;
  572.   Bar3DPlay;
  573.   ArcPlay;
  574.   CirclePlay;
  575.   PiePlay;
  576.   LineToPlay;
  577.   LineRelPlay;
  578. {  LineStylePlay; }
  579. {  UserLineStylePlay; }
  580.   TextDump;
  581.   TextPlay;
  582.   CrtModePlay;
  583.   FillStylePlay;
  584.   FillPatternPlay;
  585.   PolyPlay;
  586.   SayGoodbye;
  587. {  CloseGraph; }
  588.   CloseVesa;
  589. end.
  590. ***************************************************
  591.     '* SHOW D2ROTATE (ABOUT THE ORIGIN)
  592.     '****************************************************************∞╥≤c≤*φè#^│v/╒:j═φ0t+l▓ô"¬"g└≡?%ªêΣ│H╫½╫╜├¿U'╒⌐⌡ ßV?╩
  593. ¬ujOΦçEZ1∞▐! ▄B╛Σ8║æ]1GlNÜ┐q▌▓;ô$ΦzE<cª*bEô#ä╧ñÅ"∩─LrdaÖ ╠º╫a^¥£å╬1~)@ëÖMδ╫0═6DäFê¬Çv┼ß╨kæpτ╪É)}ª 1w3╤╧ü⌡¥╓h▓╣≈ïÅaÑ[TⁿHqªÉ╝DKÄ─Y-∞tT╤Θ╨º╟╪.*ÇI9lΦ≈{πτcσ$τπßoFr╪╨∩┼╞╟;O2■e²LÜ4^N|╪½ÅO?╔°FOz`╟╟╟'<>>π$πΘù6·
  594. Xgî╖│°oîδπGƒd╝▀░?■╪╔_9L ⌡ôⁿq'æO▀ƒn4╔▀╚▄┼3pτ.òO°·}÷╕ⁿ±'æO?ít│!√8ßÑ≤/┐╣p┼≥┘E╦Vox╕cΦé5╟╚º╙$?√$≥ΘZεsî≡åìΓpKù¢ïß X╥ 9╞≈\µk┤O¥_ 5Üö\≤éÄ┌╤A[╤ÿáï┼éNⁿÅu16    g,%hc╙╨cD╨Vï┘R¢öKñR;8εáΣ╢╪ós╤π╡á└èxgzPÄMú╫yαºÉ+σJ¢i+▓â3╥    ═Ñ╙î^ºG▓█πérφçs %#(╗⌠?┼%u8≡6+QÉ))ò)Afw≈╣╪)B&4░åLXV:δät@Å.;5Φf╢Ät┐ΣJ╫─U8úÇ╟éö£╕p╔┴⌠vg╨╬╥é÷╪╣┬ΓI.ç≡^v╤ZΦÇ& ╒┌6ñô6XßNè╡╬E₧Ñ
  595. kIº╠▄A+╣╥éb²tæ-Y¡½αÑa═uuîÇ╢αêvhuª╡SÅ┤vèùú¥F;p<d⌐/F─d█éT%▓KΦû=q■öI┐ ┐╠6S$▒÷╚ENΩ¥Fû9╔┌R'╝ ╧φ└?g┬j▓0═/b╖₧─mûé╢┌»ÿÄë/·<éò■░╤╟╢├Xσ:╥P3Θ"╬Læsφ░┌öSö!╗¿*mN£WΣÇ£┤~#╗ææ≥RΩóh:à▌.æ≈╕▌v£äàd▒à╒├=░╖π║$howeg*╬    6ù▄ƒô╕φ░Ö╢qΘD>(w@úKεHÆ╛öúΣU
  596. éÜR╔╤W▄èê 2M%ó.▓SNÖA1ùJE╢║l]▓¿>\%└Å4ßO▄£â⌐& ê/)8vSP▀▓ôⁿææ√ü√ÑÄa⌠â╚4S╓╟P- ?Σá╕▓Næ*q╡UΘ▓≈^ñ·I.rúR&$Y^╚%è≡B┌≈Ceat
  597.     Color := RandColor;
  598.     SetColor(Color);
  599.     SetFillStyle(Random(CloseDotFill)+1, Color);
  600.     Bar3D(Random(MaxWidth), Random(MaxHeight),
  601.           Random(MaxWidth), Random(MaxHeight), 0, TopOff);
  602.   until KeyPressed;
  603.   WaitToGo;
  604. end; { RandBarPlay }
  605.  
  606. procedure ArcPlay;
  607. { Draw random arcs on the screen }
  608. var
  609.   MaxRadius : word;
  610.   EndAngle : word;
  611.   ArcInfo : ArcCoordsType;
  612. begin
  613.   MainWindow('Arc / GetArcCoords demonstration');
  614.   StatusLine('Esc aborts or press a key');
  615.   MaxRadius := MaxY div 10;
  616.   repeat
  617.     SetColor(RandColor);
  618.     EndAngle := Random(360);
  619.     SetLineStyle(SolidLn, 0, NormWidth);
  620.     Arc(Random(MaxX), Random(MaxY), Random(EndAngle), EndAngle, Random(MaxRadius));
  621.     GetArcCoords(ArcInfo);
  622.     with ArcInfo do
  623.     begin
  624.       Line(X, Y, XStart, YStart);
  625.       Line(X, Y, Xend, Yend);
  626.     end;
  627.   until KeyPressed;
  628.   WaitToGo;
  629. end; { ArcPlay }
  630.  
  631. procedure PutPixelPlay;
  632. { Demonstrate the PutPixel and GetPixel commands }
  633. const
  634.   Seed   = 1962; { A seed for the random number generator }
  635.   NumPts = 2000; { The number of pixels plotted }
  636.   Esc    = #27;
  637. var
  638.   I : word;
  639.   X, Y, Color : word;
  640.   XMax, YMax  : integer;
  641.   ViewInfo    : ViewPortType;
  642. begin
  643.   MainWindow('PutPixel / GetPixel demonstration');
  644.   StatusLine('Esc aborts or press a key...');
  645.  
  646.   GetViewSettings(ViewInfo);
  647.   with ViewInfo do
  648.   begin
  649.     XMax := (x2-x1-1);
  650.     YMax := (y2-y1-1);
  651.   end;
  652.  
  653.   while not KeyPressed do
  654.   begin
  655.     { Plot random pixels }
  656.     RandSeed := Seed;
  657.     I := 0;
  658.     while (not KeyPressed) and (I < NumPts) do
  659.     begin
  660.       Inc(I);
  661.         PutPixel(Random(XMax)+1, Random(YMax)+1, RandColor);
  662.     end;
  663.  
  664.     { Erase pixels }
  665.     RandSeed := Seed;
  666.     I := 0;
  667.     while (not KeyPressed) and (I < NumPts) do
  668.     begin
  669.       Inc(I);
  670.       X := Random(XMax)+1;
  671.       Y := Random(YMax)+1;
  672.       Color := GetPixel(X, Y);
  673.         if Color = RandColor then
  674.           PutPixel(X, Y, 0);
  675.      end;
  676.   end;
  677.   WaitToGo;
  678. end; { PutPixelPlay }
  679.  
  680. procedure PutImagePlay;
  681. { Demonstrate the GetImage and PutImage commands }
  682.  
  683. const
  684.   r  = 20;
  685.   StartX = 100;
  686.   StartY = 50;
  687.  
  688. var
  689.   CurPort : ViewPortType;
  690.  
  691. procedure MoveSaucer(var X, Y : integer; Width, Height : integer);
  692. var
  693.   Step : integer;
  694. begin
  695.   Step := Random(2*r);
  696.   if Odd(Step) then
  697.     Step := -Step;
  698.   X := X + Step;
  699.   Step := Random(r);
  700.   if Odd(Step) then
  701.     Step := -Step;
  702.   Y := Y + Step;
  703.  
  704.   { Make saucer bounce off viewport walls }
  705.   with CurPort do
  706.   begin
  707.     if (x1 + X + Width - 1 > x2) then
  708.       X := x2-x1 - Width + 1
  709.     else
  710.       if (X < 0) then
  711.         X := 0;
  712.     if (y1 + Y + Height - 1 > y2) then
  713.       Y := y2-y1 - Height + 1
  714.     else
  715.       if (Y < 0) then
  716.         Y := 0;
  717.   end;
  718. end; { MoveSaucer }
  719.  
  720. var
  721.   Pausetime : word;
  722.   Saucer    : pointer;
  723.   X, Y      : integer;
  724.   ulx, uly  : word;
  725.   lrx, lry  : word;
  726.   Size      : word;
  727.   I         : word;
  728. begin
  729.   ClearDevice;
  730.   FullPort;
  731.  
  732.   { PaintScreen }
  733.   ClearDevice;
  734.   MainWindow('GetImage / PutImage Demonstration');
  735.   StatusLine('Esc aborts or press a key...');
  736.   GetViewSettings(CurPort);
  737.  
  738.   { DrawSaucer }
  739.   Ellipse(StartX, StartY, 0, 360, r, (r div 3)+2);
  740.   Ellipse(StartX, StartY-4, 190, 357, r, r div 3);
  741.   Line(StartX+7, StartY-6, StartX+10, StartY-12);
  742.   Circle(StartX+10, StartY-12, 2);
  743.   Line(StartX-7, StartY-6, StartX-10, StartY-12);
  744.   Circle(StartX-10, StartY-12, 2);
  745.   SetFillStyle(SolidFill, MaxColor);
  746.   FloodFill(StartX+1, StartY+4, GetColor);
  747.  
  748.   { ReadSaucerImage }
  749.   ulx := StartX-(r+1);
  750.   uly := StartY-14;
  751.   lrx := StartX+(r+1);
  752.   lry := StartY+(r div 3)+3;
  753.  
  754.   Size := ImageSize(ulx, uly, lrx, lry);
  755.   GetMem(Saucer, Size);
  756.   GetImage(ulx, uly, lrx, lry, Saucer^);
  757. {  PutImage(ulx, uly, Saucer^, XORput);               { erase image }
  758.  
  759.   { Plot some "stars" }
  760.   for I := 1 to 1000 do
  761.      PutPixel(Random(MaxX), Random(MaxY), RandColor);
  762.   X := MaxX div 2;
  763.   Y := MaxY div 2;
  764.   PauseTime := 70;
  765.  
  766.   { Move the saucer around }
  767.   repeat
  768. {     PutImage(X, Y, Saucer^, XORput);                 { draw image }
  769.      Delay(PauseTime);
  770. {     PutImage(X, Y, Saucer^, XORput);                 { erase image }
  771.      MoveSaucer(X, Y, lrx - ulx + 1, lry - uly + 1);  { width/height }
  772.   until KeyPressed;
  773.   FreeMem(Saucer, size);
  774.   WaitToGo;
  775. end; { PutImagePlay }
  776.  
  777. procedure PolyPlay;
  778. { Draw random polygons with random fill styles on the screen }
  779. const
  780.   MaxPts = 5;
  781. type
  782.   PolygonType = array[1..MaxPts] of PointType;
  783. var
  784.   Poly : PolygonType;
  785.   I, Color : word;
  786. begin
  787.   MainWindow('FillPoly demonstration');
  788.   StatusLine('Esc aborts or press a key...');
  789.   repeat
  790.     Color := RandColor;
  791.     SetFillStyle(Random(11)+1, Color);
  792.     SetColor(Color);
  793.     for I := 1 to MaxPts do
  794.       with Poly[I] do
  795.       begin
  796.         X := Random(MaxX);
  797.         Y := Random(MaxY);
  798.       end;
  799.     FillPoly(MaxPts, Poly);
  800.   until KeyPressed;
  801.   WaitToGo;
  802. end; { PolyPlay }
  803.  
  804. procedure FillStylePlay;
  805. { Display all of the predefined fill styles available }
  806. var
  807.   Style    : word;
  808.   Width    : word;
  809.   Height   : word;
  810.   X, Y     : word;
  811.   I, J     : word;
  812.   ViewInfo : ViewPortType;
  813.  
  814. procedure DrawBox(X, Y : word);
  815. begin
  816.   SetFillStyle(Style, MaxColor);
  817.   with ViewInfo do
  818.     Bar(X, Y, X+Width, Y+Height);
  819.   Rectangle(X, Y, X+Width, Y+Height);
  820.   OutTextXY(X+(Width div 2), Y+Height+4, Int2Str(Style));
  821.   Inc(Style);
  822. end; { DrawBox }
  823.  
  824. begin
  825.   MainWindow('Pre-defined fill styles');
  826.   GetViewSettings(ViewInfo);
  827.   with ViewInfo do
  828.   begin
  829.     Width := 2 * ((x2+1) div 13);
  830.     Height := 2 * ((y2-10) div 10);
  831.   end;
  832.   X := Width div 2;
  833.   Y := Height div 2;
  834.   Style := 0;
  835.   for J := 1 to 3 do
  836.   begin
  837.     for I := 1 to 4 do
  838.     begin
  839.       DrawBox(X, Y);
  840.       Inc(X, (Width div 2) * 3);
  841.     end;
  842.     X := Width div 2;
  843.     Inc(Y, (Height div 2) * 3);
  844.   end;
  845.   SetTextJustify(LeftText, TopText);
  846.   WaitToGo;
  847. end; { FillStylePlay }
  848.  
  849. procedure FillPatternPlay;
  850. { Display some user defined fill patterns }
  851. const
  852.   Patterns : array[0..11] of FillPatternType = (
  853.   ($AA, $55, $AA, $55, $AA, $55, $AA, $55 üÖü üÖü  !BBäx!!!BBäx!BBäx"""DDêp""DDêp>"""BBääêp""!"BDäêêp>IÉÆ|      ° @≥î>00>><Dêx  !BBäx""DDêp&<"DDêê&22TTêêê$> $< @äêp>          ⁿBBBB<  @@Ç****DDDDDDDU¬U¬U¬U¬U¬U¬U¬▌w▌w▌w▌w▌w▌w▌w°°°≥■°°≥≥■≥≥■■°°°    ≤  ≤  ≤≤         °                     ≡≡≡≡≡≡≡≡≡≡≡≡≡≡       ;DDD;    $"Bdÿ>@@@>||>Ac]AAA1N"A""2,  `1NA"*III*<Bü üB<<BüüüB<A" \"QIE" < <BBBB  @@    ~ ?  @ÇB$$B ""A$$"AII6 üBr»$**IIII**ccregion.  The region is defined as any pixel of
  854.             OldColor which has a path of pixels of OldColor or NewColor
  855.             with sides touching back to the seed point, (XSeed, YSeed).
  856.             Therefore, only pixels of OldColor are modified and no other
  857.             information is changed.
  858.  
  859.             SEE ALSO
  860.  
  861.             DRWFILLBOX, DRWFILLCIRCLE, DRWFILLELLIPSE, FILLAREA,
  862.             FILLCONVEXPOLY, FILLPAGE, FILLPOLY, FILLSCREEN, FILLVIEW,
  863.             SETVIEW
  864.  
  865.             EXAMPL(HNxHHO$B<BBBB<$<BBBB<<BBBB<$BBBBBF:0BBBBF:$BBBF:B<""AAA""AAAAA"<B@@B<" <2\A">>xDDxDNDD <` <>BB= > <BBBB< BBBBF:2L\bBBBB&AaQIECA8$>""">0@@A>@@@ b$(. b$(*
  866.     $    $    $DDDDDDD¬U¬U¬U¬U¬U¬U¬Uw▌w▌w▌w▌w▌w▌w▌°°°⌠ⁿ°°⌠⌠ⁿ⌠⌠ⁿⁿ°°°    ≈  ≈  ≈≈         °                     ≡≡≡≡≡≡≡≡≡≡≡≡≡≡       7HH7"B\DBBRL~BB@@@@@@?R~!!~?DDDD8BBBB|@@Ç>P>III>"AA""AAA"Uw<DDDD86II6"EIQ"\ @@ "AAAAA> >     hH02L2L$$<H(,$<>>>>>>>         VMODE=VIDEOMODEGET
  867.             IF WHICHVGA = 0 THEN STOP
  868.             DUMMY=RES640
  869.             SETVIEW 100, 100, 539, 379
  870.             FILLVIEW 10
  871.             WHILE INKEY$ = ""
  872.             WEND
  873.             VIDEOMODESET VMODE
  874.             END
  875.  
  876.  
  877.  
  878.  
  879.  
  880.  
  881.  
  882.  
  883.  
  884.  
  885.  
  886.  
  887.  
  888.  
  889.  
  890.  
  891.                                                                          63
  892.  
  893.  
  894.  
  895.  
  896.  
  897.  
  898.           FONTGETINFO
  899.  
  900.             PROTOTYPE
  901.  
  902.             SUB FONTGETINFO (Width%, Height%)
  903.  
  904.             INPUT
  905.  
  906.             no input parameters
  907.     WEND
  908.             MOUSEEXIT
  909.             VIDEOMODESET VMODE
  910.             END
  911.  
  912.  
  913.  
  914.  
  915.  
  916.  
  917.  
  918.  
  919.  
  920.  
  921.  
  922.  
  923.  
  924.  
  925.  
  926.  
  927.  
  928.  
  929.  
  930.  
  931.  
  932.  
  933.  
  934.  
  935.  
  936.  
  937.  
  938.  
  939.  
  940.  
  941.  
  942.  
  943.  
  944.  
  945.  
  946.  
  947.  
  948.  
  949.  
  950.  
  951.                                                                          86
  952.  
  953.  
  954.  
  955.  
  956.  
  957.  
  958.           MOUSECURSORDEFAULT
  959.  
  960.             PROTOTYPE
  961.  
  962.             SUB MOUSECURSORDEFAULT ()
  963.  
  964.             INPUT
  965.  
  966.             no input parameters
  967.  
  968.             OUTPUT
  969.  
  970.             no value returned
  971.  
  972.             USAGE
  973.  
  974.             MOUSECURSORDEFAULT defines the mouse cursor to be a small
  975.        ,K$╖┼╘╤░XQ)σ┤ö≡÷┴─┤àñT┘,╘¬àñX9╘⌠àñ\9╘UÜ╢≤`9╘4a╘d9╘UTa╘h9╘ta╘l9╘Uöa╘p9╘┤a╘t┘PT±x┴îÇ╖0▓ïα│ÅαU┤ôα╡ùα╢¢α╖úΓ╘pǺΓ╕¡αë ╚┴πì°sKÉφb<$⌡▌ë     φë φë I1φë  Eφë $YφÆë (mφë ,üφë 0$òφë á⌐φë ñ╜φë I¿╤φë ¼σφë ░∙φÆë 4
  976. ²ë ┤!²ë ╕$5²ë ╝I²ë └]²ë ⌐8q²ë <àⁿΦiǬ∙PÖÇ ¥Ç
  977. ⁿ
  978. ░╨â@%8@ΓΦá╝╤░≡cÑÅ*$
  979. ░╕≡ż≡τ╥m¿⌡ε    ╨@#µ≈$âh$âαra╨à`¥è∩Ç%Ç +─▀ TîcOî∩â°1<@  [$¿Ç¼ MMl·0ƒ Y¼─!%6a▐è ¥ì ßá+?±  P<îaTTV ╪iÇ¡≥░ `_ñ»%Çá᪠P█º»ε`éa∙É%H«┴íA%Gár∙É
  980. iw∙Éiφ`╧≥≡╤Çmⁿ▒
  981. ]ÆAáσw7░⌡∩    $·╟Ç√É&^`  ┐ $ⁿ  $■ $╒ nk$J-ÉQ1£PéBù »0αQ/Ñ4╜£░ºP≈Ñ4Ç⌡$(ª▀$@C]Æé≈└╕_SÇçÑ4=iÉ⌠ä╣<_np@Ñ45ò▒Y3ü¼Qí░.i>╠@5+┴╙É╛╙$@ #┴@«╦
  982. $╤
  983. #@Ñú4,p&e÷ü¼_ÇQºÑ4
  984. òQ  ü@;¡_áQ@e╠≥@mp!┤a╘O░√`Pñź ÇT°8ÿ!¼Åñ$½╙"q¿ PñCÇ¿α√└╥░eT"ß<p°%Pæ(╧%pδ¥/OêW0Ǽbφ φ B@[â¼8â≥µ≤(    ¿⌡%(Ç∩áTÿp+ óÜ▓0!Σ±(1±
  985. ░┤ÖÇD└D0Å╡`   $ «îO@╧1
  986. a╝╤j-0ñ│`@╖bΦaT1═⌠╝╤Σ²¼±,1öíî9lÿ28ÇÅ`Γî¿P²$,N0┴O0a╫δ≤0σú`°î╖#0δ≡└X▄1»Σî(▒¥Ç█Ñ"qá√1CÇú╟╨º Å
  987. FT Θ²î└1ÇY0    w ²à░$@AÅ`╦Φ¼╘`▄1A  }┐Ç*5 ΩSδδî`¼îaδæ¼î5 1¿⌡Ω╜⌠ ¼¥╬ü└Qî1S
  988. ╛≤î9╨iÇ,∙PU(}Ç$üÇ àÇ`σìÇ`QαÜBO$%ÿÇ╧"$Ç«Ç]É.┬\`%WÉ$  W0 ÄâO0]αG┬ur╩
  989. ░£▒
  990. Q¢ú╔Ç≡°s?`X0╘`@ µWâ@╣aá εdq`¥9?Ç&+o0µyÄΣAÅuV(7P╬±@IdQ╕@Å┤@;Ç▓?Çò│CÇ┤╟╨╡KÇÄ30ⁿφ° ó╬ì+]Ä╦≡     Mö╝σ ²y5<!└▀óâ╝É3~mp    $<╛≤9Æ-2ⁿ≡@T,╞Σa,)Pæ└¥#¼╪Q┤S(¼@Aîa
  991. ≡╤@Ö²±⌠KëD─┴▒▀0╨Ñ$╩-0 ╨ê*╙▓edm`î=3Kß-10è=≥≤²└£mîjy ÿe²ⁿ╨i╕e▓ΣmαÖ╢C%Ç*ê*0 EátQZ`mÄLP%    °üⁿªüNQ∙  T¿<qtWΩc z░ÅÇñΩçǪçÇ«;└<┐á¼¥. á?<Σscî)áí := 0;
  992.       end;
  993.     end;
  994.   end;
  995.   WaitToGo;
  996. end; { UserLineStylePlay }
  997.  
  998.  
  999. procedure SayGoodbye;
  1000. { Say goodbye and then exit the program }
  1001. var
  1002.   ViewInfo : ViewPortType;
  1003. begin
  1004.   MainWindow('');
  1005.   GetViewSettings(ViewInfo);
  1006.   SetTextStyle(TriplexFont, HorizDir, 4);
  1007.   SetTextJustify(CenterText, CenterText);
  1008.   with ViewInfo do
  1009.     OutTextXY((x2-x1) div 2, (y2-y1) div 2, 'That''s all folks!');
  1010.   StatusLine('Press any key to quit...');
  1011.   repeat until KeyPressed;
  1012. end; { SayGoodbye }
  1013.  
  1014.  
  1015. PROCEDURE SelectMode;
  1016. VAR
  1017.     choice1,choice2     : CHAR;
  1018.    xsize,ysize            : WORD;
  1019. BEGIN
  1020.     (* Let's select a mode *)
  1021.     ClrScr;
  1022.     WriteLn('VESADEMO:');
  1023.     WriteLn('1. 256 colors');
  1024.     WriteLn('2. 32768 colors');
  1025.     WriteLn('3. 65536 colors');
  1026.     WriteLn('4. 16777216 colors');
  1027.     WriteLn('Q uit');
  1028.     WriteLn;
  1029.     Write('Your choice: ');
  1030.     REPEAT
  1031.         ReadLn(choice1);
  1032.       IF choice1 <> '1' THEN BEGIN
  1033.           WriteLn('Sorry !');
  1034.          WriteLn('This demo wasn''t written for more as 256 colors !');
  1035.          WriteLn('You would only get a limited impression of the Hi-& TrueColor modes...');
  1036.          WriteLn('Switching to 256 colors.');
  1037.          choice1 := '1';
  1038.       END;
  1039.     UNTIL choice1 IN ['1'..'4','q'];
  1040.     IF choice1 = 'q' THEN Halt;
  1041.  
  1042.     WriteLn;
  1043.     WriteLn;
  1044.     WriteLn('a. 320x200');
  1045.     WriteLn('b. 640x480');
  1046.     WriteLn('c. 800x600');
  1047.     WriteLn('d. 1024x768');
  1048.     WriteLn('e. 1280x1024');
  1049.     WriteLn('Q uit');
  1050.     WriteLn;
  1051.     Write('Your choice: ');
  1052.     REPEAT
  1053.         ReadLn(choice2);
  1054.     UNTIL choice2 IN ['a'..'e','q'];
  1055.     IF choice2 = 'q' THEN Halt;
  1056.  
  1057.     CASE choice2 OF
  1058.         'a' : BEGIN
  1059.             xsize := 320;
  1060.             ysize := 200;
  1061.         END;
  1062.         'b' : BEGIN
  1063.             xsize := 640;
  1064.             ysize := 480;
  1065.         END;
  1066.         'c' : BEGIN
  1067.             xsize := 800;
  1068.             ysize := 600;
  1069.         END;
  1070.         'd' : BEGIN
  1071.             xsize := 1024;
  1072.             ysize := 768;
  1073.         END;
  1074.         'e' : BEGIN
  1075.             xsize := 1280;
  1076.             ysize := 1024;
  1077.         END;
  1078.     END;
  1079.     CASE choice1 OF
  1080.         '1' : mode := FindVesaMode(xsize,ysize,8);
  1081.         '2' : mode := FindVesaMode(xsize,ysize,15);
  1082.         '3' : mode := FindVesaMode(xsize,ysize,16);
  1083.         '4' : mode := FindVesaMode(xsize,ysize,24);
  1084.     END;
  1085.     IF mode = 0 THEN BEGIN
  1086.         WriteLn('No such mode could be found !');
  1087.         WriteLn('Switching to to 320x200.');
  1088.         ReadKey;
  1089.         mode := V320x200x256;
  1090.     END;
  1091. END;
  1092.  
  1093. begin { program body }
  1094.   SelectMode;
  1095.   Initialize;
  1096.   ReportStatus;
  1097.  
  1098. {  AspectRatioPlay; }
  1099.   FillEllipsePlay;
  1100.   SectorPlay;
  1101.   WriteModePlay;
  1102.  
  1103.   ColorPlay;
  1104.   { PalettePlay only intended to work on these drivers: }
  1105.   if (GraphDriver = EGA) or
  1106.       (GraphDriver = EGA64) or
  1107.       (GraphDriver = VGA) then
  1108.      PalettePlay;
  1109.   PutPixelPlay;
  1110. {  PutImagePlay; }
  1111.   RandBarPlay;
  1112.   BarPlay;
  1113.   Bar3DPlay;
  1114.   ArcPlay;
  1115.   CirclePlay;
  1116.   PiePlay;
  1117.   LineToPlay;
  1118.   LineRelPlay;
  1119. {  LineStylePlay; }
  1120. {  UserLineStylePlay; }
  1121.   TextDump;
  1122.   TextPlay;
  1123.   CrtModePlay;
  1124.   FillStylePlay;
  1125.   FillPatternPlay;
  1126.   PolyPlay;
  1127.   SayGoodbye;
  1128. {  CloseGraph; }
  1129.   CloseVesa;
  1130. end.
  1131. ***************************************************
  1132.     '* SHOW D2ROTATE (ABOUT THE ORIGIN)
  1133.     '****************************************************************∞╥≤c≤*φè#^│v/╒:j═φ0t+l▓ô"¬"g└≡?%ªêΣ│H╫½╫╜├¿U'╒⌐⌡ ßV?╩
  1134. ¬ujOΦçEZ1∞▐! ▄B╛Σ8║æ]1GlNÜ┐q▌▓;ô$ΦzE<cª*bEô#ä╧ñÅ"∩─LrdaÖ ╠º╫a^¥£å╬1~)@ëÖMδ╫0═6DäFê¬Çv┼ß╨kæpτ╪É)}ª 1w3╤╧ü⌡¥╓h▓╣≈ïÅaÑ[TⁿHqªÉ╝DKÄ─Y-∞tT╤Θ╨º╟╪.*ÇI9lΦ≈{πτcσ$τπßoFr╪╨∩┼╞╟;O2■e²LÜ4^N|╪½ÅO?╔°FOz`╟╟╟'<>>π$πΘù6·
  1135. Xgî╖│°oîδπGƒd╝▀░?■╪╔_9L ⌡ôⁿq'æO▀ƒn4╔▀╚▄┼3pτ.òO°·}÷╕ⁿ±'æO?ít│!√8ßÑ≤/┐╣p┼≥┘E╦Vox╕cΦé5╟╚º╙$?√$≥ΘZεsî≡åìΓpKù¢ïß X╥ 9╞≈\µk┤O¥_ 5Üö\≤éÄ┌╤A[╤ÿáï┼éNⁿÅu16    g,%hc╙╨cD╨Vï┘R¢öKñR;8εáΣ╢╪ós╤π╡á└èxgzPÄMú╫yαºÉ+σJ¢i+▓â3╥    ═Ñ╙î^ºG▓█πérφçs %#(╗⌠?┼%u8≡6+QÉ))ò)Afw≈╣╪)B&4░åLXV:δät@Å.;5Φf╢Ät┐ΣJ╫─U8úÇ╟éö£╕p╔┴⌠vg╨╬╥é÷╪╣┬ΓI.ç≡^v╤ZΦÇ& ╒┌6ñô6XßNè╡╬E₧Ñ
  1136. kIº╠▄A+╣╥éb²tæ-Y¡½αÑa═uuîÇ╢αêvhuª╡SÅ┤vèùú¥F;p<d⌐/F─d█éT%▓KΦû=q■öI┐ ┐╠6S$▒÷╚ENΩ¥Fû9╔┌R'╝ ╧φ└?g┬j▓0═/b╖₧─mûé╢┌»ÿÄë/·<éò■░╤╟╢├Xσ:╥P3Θ"╬Læsφ░┌öSö!╗¿*mN£WΣÇ£┤~#╗ææ≥RΩóh:à▌.æ≈╕▌v£äàd▒à╒├=░╖π║$howeg*╬    6ù▄ƒô╕φ░Ö╢qΘD>(w@úKεHÆ╛öúΣU
  1137. éÜR╔╤W▄èê 2M%ó.▓SNÖA1ùJE╢║l]▓¿>\%└Å4ßO▄£â⌐& ê/)8vSP▀▓ôⁿææ√ü√ÑÄa⌠â╚4S╓╟P- ?Σá╕▓Næ*q╡UΘ▓≈^ñ·I.rúR&$Y^╚%è≡B┌≈Ceat
  1138.     Color := RandColor;
  1139.     SetColor(Color);
  1140.     SetFillStyle(Random(CloseDotFill)+1, Color);
  1141.     Bar3D(Random(MaxWidth), Random(MaxHeight),
  1142.           Random(MaxWidth), Random(MaxHeight), 0, TopOff);
  1143.   until KeyPressed;
  1144.   WaitToGo;
  1145. end; { RandBarPlay }
  1146.  
  1147. procedure ArcPlay;
  1148. { Draw random arcs on the screen }
  1149. var
  1150.   MaxRadius : word;
  1151.   EndAngle : word;
  1152.   ArcInfo : ArcCoordsType;
  1153. begin
  1154.   MainWindow('Arc / GetArcCoords demonstration');
  1155.   StatusLine('Esc aborts or press a key');
  1156.   MaxRadius := MaxY div 10;
  1157.   repeat
  1158.     SetColor(RandColor);
  1159.     EndAngle := Random(360);
  1160.     SetLineStyle(SolidLn, 0, NormWidth);
  1161.     Arc(Random(MaxX), Random(MaxY), Random(EndAngle), EndAngle, Random(MaxRadius));
  1162.     GetArcCoords(ArcInfo);
  1163.     with ArcInfo do
  1164.     begin
  1165.       Line(X, Y, XStart, YStart);
  1166.       Line(X, Y, Xend, Yend);
  1167.     end;
  1168.   until KeyPressed;
  1169.   WaitToGo;
  1170. end; { ArcPlay }
  1171.  
  1172. procedure PutPixelPlay;
  1173. { Demonstrate the PutPixel and GetPixel commands }
  1174. const
  1175.   Seed   = 1962; { A seed for the random number generator }
  1176.   NumPts = 2000; { The number of pixels plotted }
  1177.   Esc    = #27;
  1178. var
  1179.   I : word;
  1180.   X, Y, Color : word;
  1181.   XMax, YMax  : integer;
  1182.   ViewInfo    : ViewPortType;
  1183. begin
  1184.   MainWindow('PutPixel / GetPixel demonstration');
  1185.   StatusLine('Esc aborts or press a key...');
  1186.  
  1187.   GetViewSettings(ViewInfo);
  1188.   with ViewInfo do
  1189.   begin
  1190.     XMax := (x2-x1-1);
  1191.     YMax := (y2-y1-1);
  1192.   end;
  1193.  
  1194.   while not KeyPressed do
  1195.   begin
  1196.     { Plot random pixels }
  1197.     RandSeed := Seed;
  1198.     I := 0;
  1199.     while (not KeyPressed) and (I < NumPts) do
  1200.     begin
  1201.       Inc(I);
  1202.         PutPixel(Random(XMax)+1, Random(YMax)+1, RandColor);
  1203.     end;
  1204.  
  1205.     { Erase pixels }
  1206.     RandSeed := Seed;
  1207.     I := 0;
  1208.     while (not KeyPressed) and (I < NumPts) do
  1209.     begin
  1210.       Inc(I);
  1211.       X := Random(XMax)+1;
  1212.       Y := Random(YMax)+1;
  1213.       Color := GetPixel(X, Y);
  1214.         if Color = RandColor then
  1215.           PutPixel(X, Y, 0);
  1216.      end;
  1217.   end;
  1218.   WaitToGo;
  1219. end; { PutPixelPlay }
  1220.  
  1221. procedure PutImagePlay;
  1222. { Demonstrate the GetImage and PutImage commands }
  1223.  
  1224. const
  1225.   r  = 20;
  1226.   StartX = 100;
  1227.   StartY = 50;
  1228.  
  1229. var
  1230.   CurPort : ViewPortType;
  1231.  
  1232. procedure MoveSaucer(var X, Y : integer; Width, Height : integer);
  1233. var
  1234.   Step : integer;
  1235. begin
  1236.   Step := Random(2*r);
  1237.   if Odd(Step) then
  1238.     Step := -Step;
  1239.   X := X + Step;
  1240.   Step := Random(r);
  1241.   if Odd(Step) then
  1242.     Step := -Step;
  1243.   Y := Y + Step;
  1244.  
  1245.   { Make saucer bounce off viewport walls }
  1246.   with CurPort do
  1247.   begin
  1248.     if (x1 + X + Width - 1 > x2) then
  1249.       X := x2-x1 - Width + 1
  1250.     else
  1251.       if (X < 0) then
  1252.         X := 0;
  1253.     if (y1 + Y + Height - 1 > y2) then
  1254.       Y := y2-y1 - Height + 1
  1255.     else
  1256.       if (Y < 0) then
  1257.         Y := 0;
  1258.   end;
  1259. end; { MoveSaucer }
  1260.  
  1261. var
  1262.   Pausetime : word;
  1263.   Saucer    : pointer;
  1264.   X, Y      : integer;
  1265.   ulx, uly  : word;
  1266.   lrx, lry  : word;
  1267.   Size      : word;
  1268.   I         : word;
  1269. begin
  1270.   ClearDevice;
  1271.   FullPort;
  1272.  
  1273.   { PaintScreen }
  1274.   ClearDevice;
  1275.   MainWindow('GetImage / PutImage Demonstration');
  1276.   StatusLine('Esc aborts or press a key...');
  1277.   GetViewSettings(CurPort);
  1278.  
  1279.   { DrawSaucer }
  1280.   Ellipse(StartX, StartY, 0, 360, r, (r div 3)+2);
  1281.   Ellipse(StartX, StartY-4, 190, 357, r, r div 3);
  1282.   Line(StartX+7, StartY-6, StartX+10, StartY-12);
  1283.   Circle(StartX+10, StartY-12, 2);
  1284.   Line(StartX-7, StartY-6, StartX-10, StartY-12);
  1285.   Circle(StartX-10, StartY-12, 2);
  1286.   SetFillStyle(SolidFill, MaxColor);
  1287.   FloodFill(StartX+1, StartY+4, GetColor);
  1288.  
  1289.   { ReadSaucerImage }
  1290.   ulx := StartX-(r+1);
  1291.   uly := StartY-14;
  1292.   lrx := StartX+(r+1);
  1293.   lry := StartY+(r div 3)+3;
  1294.  
  1295.   Size := ImageSize(ulx, uly, lrx, lry);
  1296.   GetMem(Saucer, Size);
  1297.   GetImage(ulx, uly, lrx, lry, Saucer^);
  1298. {  PutImage(ulx, uly, Saucer^, XORput);               { erase image }
  1299.  
  1300.   { Plot some "stars" }
  1301.   for I := 1 to 1000 do
  1302.      PutPixel(Random(MaxX), Random(MaxY), RandColor);
  1303.   X := MaxX div 2;
  1304.   Y := MaxY div 2;
  1305.   PauseTime := 70;
  1306.  
  1307.   { Move the saucer around }
  1308.   repeat
  1309. {     PutImage(X, Y, Saucer^, XORput);                 { draw image }
  1310.      Delay(PauseTime);
  1311. {     PutImage(X, Y, Saucer^, XORput);                 { erase image }
  1312.      MoveSaucer(X, Y, lrx - ulx + 1, lry - uly + 1);  { width/height }
  1313.   until KeyPressed;
  1314.   FreeMem(Saucer, size);
  1315.   WaitToGo;
  1316. end; { PutImagePlay }
  1317.  
  1318. procedure PolyPlay;
  1319. { Draw random polygons with random fill styles on the screen }
  1320. const
  1321.   MaxPts = 5;
  1322. type
  1323.   PolygonType = array[1..MaxPts] of PointType;
  1324. var
  1325.   Poly : PolygonType;
  1326.   I, Color : word;
  1327. begin
  1328.   MainWindow('FillPoly demonstration');
  1329.   StatusLine('Esc aborts or press a key...');
  1330.   repeat
  1331.     Color := RandColor;
  1332.     SetFillStyle(Random(11)+1, Color);
  1333.     SetColor(Color);
  1334.     for I := 1 to MaxPts do
  1335.       with Poly[I] do
  1336.       begin
  1337.         X := Random(MaxX);
  1338.         Y := Random(MaxY);
  1339.       end;
  1340.     FillPoly(MaxPts, Poly);
  1341.   until KeyPressed;
  1342.   WaitToGo;
  1343. end; { PolyPlay }
  1344.  
  1345. procedure FillStylePlay;
  1346. { Display all of the predefined fill styles available }
  1347. var
  1348.   Style    : word;
  1349.   Width    : word;
  1350.   Height   : word;
  1351.   X, Y     : word;
  1352.   I, J     : word;
  1353.   ViewInfo : ViewPortType;
  1354.  
  1355. procedure DrawBox(X, Y : word);
  1356. begin
  1357.   SetFillStyle(Style, MaxColor);
  1358.   with ViewInfo do
  1359.     Bar(X, Y, X+Width, Y+Height);
  1360.   Rectangle(X, Y, X+Width, Y+Height);
  1361.   OutTextXY(X+(Width div 2), Y+Height+4, Int2Str(Style));
  1362.   Inc(Style);
  1363. end; { DrawBox }
  1364.  
  1365. begin
  1366.   MainWindow('Pre-defined fill styles');
  1367.   GetViewSettings(ViewInfo);
  1368.   with ViewInfo do
  1369.   begin
  1370.     Width := 2 * ((x2+1) div 13);
  1371.     Height := 2 * ((y2-10) div 10);
  1372.   end;
  1373.   X := Width div 2;
  1374.   Y := Height div 2;
  1375.   Style := 0;
  1376.   for J := 1 to 3 do
  1377.   begin
  1378.     for I := 1 to 4 do
  1379.     begin
  1380.       DrawBox(X, Y);
  1381.       Inc(X, (Width div 2) * 3);
  1382.     end;
  1383.     X := Width div 2;
  1384.     Inc(Y, (Height div 2) * 3);
  1385.   end;
  1386.   SetTextJustify(LeftText, TopText);
  1387.   WaitToGo;
  1388. end; { FillStylePlay }
  1389.  
  1390. procedure FillPatternPlay;
  1391. { Display some user defined fill patterns }
  1392. const
  1393.   Patterns : array[0..11] of FillPatternType = (
  1394.   ($AA, $55, $AA, $55, $AA, $55, $AA, $55 üÖü üÖü  !BBäx!!!BBäx!BBäx"""DDêp""DDêp>"""BBääêp""!"BDäêêp>IÉÆ|      ° @≥î>00>><Dêx  !BBäx""DDêp&<"DDêê&22TTêêê$> $< @äêp>          ⁿBBBB<  @@Ç****DDDDDDDU¬U¬U¬U¬U¬U¬U¬▌w▌w▌w▌w▌w▌w▌w°°°≥■°°≥≥■≥≥■■°°°    ≤  ≤  ≤≤         °                     ≡≡≡≡≡≡≡≡≡≡≡≡≡≡       ;DDD;    $"Bdÿ>@@@>||>Ac]AAA1N"A""2,  `1NA"*III*<Bü üB<<BüüüB<A" \"QIE" < <BBBB  @@    ~ ?  @ÇB$$B ""A$$"AII6 üBr»$**IIII**ccregion.  The region is defined as any pixel of
  1395.             OldColor which has a path of pixels of OldColor or NewColor
  1396.             with sides touching back to the seed point, (XSeed, YSeed).
  1397.             Therefore, only pixels of OldColor are modified and no other
  1398.             information is changed.
  1399.  
  1400.             SEE ALSO
  1401.  
  1402.             DRWFILLBOX, DRWFILLCIRCLE, DRWFILLELLIPSE, FILLAREA,
  1403.             FILLCONVEXPOLY, FILLPAGE, FILLPOLY, FILLSCREEN, FILLVIEW,
  1404.             SETVIEW
  1405.  
  1406.             EXAMPL(HNxHHO$B<BBBB<$<BBBB<<BBBB<$BBBBBF:0BBBBF:$BBBF:B<""AAA""AAAAA"<B@@B<" <2\A">>xDDxDNDD <` <>BB= > <BBBB< BBBBF:2L\bBBBB&AaQIECA8$>""">0@@A>@@@ b$(. b$(*
  1407.     $    $    $DDDDDDD¬U¬U¬U¬U¬U¬U¬Uw▌w▌w▌w▌w▌w▌w▌°°°⌠ⁿ°°⌠⌠ⁿ⌠⌠ⁿⁿ°°°    ≈  ≈  ≈≈         °                     ≡≡≡≡≡≡≡≡≡≡≡≡≡≡       7HH7"B\DBBRL~BB@@@@@@?R~!!~?DDDD8BBBB|@@Ç>P>III>"AA""AAA"Uw<DDDD86II6"EIQ"\ @@ "AAAAA> >     hH02L2L$$<H(,$<>>>>>>>         VMODE=VIDEOMODEGET
  1408.             IF WHICHVGA = 0 THEN STOP
  1409.             DUMMY=RES640
  1410.             SETVIEW 100, 100, 539, 379
  1411.             FILLVIEW 10
  1412.             WHILE INKEY$ = ""
  1413.             WEND
  1414.             VIDEOMODESET VMODE
  1415.             END
  1416.  
  1417.  
  1418.  
  1419.  
  1420.  
  1421.  
  1422.  
  1423.  
  1424.  
  1425.  
  1426.  
  1427.  
  1428.  
  1429.  
  1430.  
  1431.  
  1432.                                                                          63
  1433.  
  1434.  
  1435.  
  1436.  
  1437.  
  1438.  
  1439.           FONTGETINFO
  1440.  
  1441.             PROTOTYPE
  1442.  
  1443.             SUB FONTGETINFO (Width%, Height%)
  1444.  
  1445.             INPUT
  1446.  
  1447.             no input parameters
  1448.     WEND
  1449.             MOUSEEXIT
  1450.             VIDEOMODESET VMODE
  1451.             END
  1452.  
  1453.  
  1454.  
  1455.  
  1456.  
  1457.  
  1458.  
  1459.  
  1460.  
  1461.  
  1462.  
  1463.  
  1464.  
  1465.  
  1466.  
  1467.  
  1468.  
  1469.  
  1470.  
  1471.  
  1472.  
  1473.  
  1474.  
  1475.  
  1476.  
  1477.  
  1478.  
  1479.  
  1480.  
  1481.  
  1482.  
  1483.  
  1484.  
  1485.  
  1486.  
  1487.  
  1488.  
  1489.  
  1490.  
  1491.  
  1492.                                                                          86
  1493.  
  1494.  
  1495.  
  1496.  
  1497.  
  1498.  
  1499.           MOUSECURSORDEFAULT
  1500.  
  1501.             PROTOTYPE
  1502.  
  1503.             SUB MOUSECURSORDEFAULT ()
  1504.  
  1505.             INPUT
  1506.  
  1507.             no input parameters
  1508.  
  1509.             OUTPUT
  1510.  
  1511.             no value returned
  1512.  
  1513.             USAGE
  1514.  
  1515.             MOUSECURSORDEFAULT defines the mouse cursor to be a small
  1516.        ,K$╖┼╘╤░XQ)σ┤ö≡÷┴─┤àñT┘,╘¬àñX9╘⌠àñ\9╘UÜ╢≤`9╘4a╘d9╘UTa╘h9╘ta╘l9╘Uöa╘p9╘┤a╘t┘PT±x┴îÇ╖0▓ïα│ÅαU┤ôα╡ùα╢¢α╖úΓ╘pǺΓ╕¡αë ╚┴πì°sKÉφb<$⌡▌ë     φë φë I1φë  Eφë $YφÆë (mφë ,üφë 0$òφë á⌐φë ñ╜φë I¿╤φë ¼σφë ░∙φÆë 4
  1517. ²ë ┤!²ë ╕$5²ë ╝I²ë └]²ë ⌐8q²ë <àⁿΦiǬ∙PÖÇ ¥Ç
  1518. ⁿ
  1519. ░╨â@%8@ΓΦá╝╤░≡cÑÅ*$
  1520. ░╕≡ż≡τ╥m¿⌡ε    ╨@#µ≈$âh$âαra╨à`¥è∩Ç%Ç +─▀ TîcOî∩â°1<@  [$¿Ç¼ MMl·0ƒ Y¼─!%6a▐è ¥ì ßá+?±  P<îaTTV ╪iÇ¡≥░ `_ñ»%Çá᪠P█º»ε`éa∙É%H«┴íA%Gár∙É
  1521. iw∙Éiφ`╧≥≡╤Çmⁿ▒
  1522. ]ÆAáσw7░⌡∩    $·╟Ç√É&^`  ┐ $ⁿ  $■ $╒ nk$J-ÉQ1£PéBù »0αQ/Ñ4╜£░ºP≈Ñ4Ç⌡$(ª▀$@C]Æé≈└╕_SÇçÑ4=iÉ⌠ä╣<_np@Ñ45ò▒Y3ü¼Qí░.i>╠@5+┴╙É╛╙$@ #┴@«╦
  1523. $╤
  1524. #@Ñú4,p&e÷ü